﻿Imports System.IO
Imports extranet.BC
Imports extranet.BE

Partial Class salvarNoticia
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not IsPostBack Then
      Dim noticia As Noticia = New Noticia()
      If (Request("idNoticia") IsNot Nothing) Then
        noticia.Id = Integer.Parse(Request("idNoticia"))
        If (noticia.Id <> -1) Then
          noticia = BCNoticia.Selecionar(noticia.Id)
          dataPostagem.Text = noticia.DataPostagem.ToString
          If noticia.NomeImagem.Length() > 0 Then
            hdf_nome_imagem.Value = noticia.NomeImagem
            imagemUrl.ImageUrl = MetodosComuns.GetVirtualPath & "/imagens/noticias/" & noticia.NomeImagem
          End If
          titulo.Text = noticia.Titulo
          corpo.Content = noticia.Corpo
          ativo.Checked = noticia.Ativo <> 0
        End If
      End If
    End If
  End Sub

  Protected Sub btnSalvar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
    Dim noticia As Noticia = New Noticia()
    Dim postador As Postador = New Postador()
    Dim extensaoImagem As String = imagem.PostedFile.ContentType
    Dim tamanhoImagem As Integer = imagem.PostedFile.ContentLength
    Dim nomeImagem As String = imagem.PostedFile.FileName

    postador.Id = 1
    postador.Nome = "Michelet"

    noticia.Titulo = titulo.Text
    noticia.Postador = postador

    noticia.Corpo = corpo.Content
    noticia.Ativo = IIf(ativo.Checked, 1, 0)
    noticia.NomeImagem = nomeImagem

    If (Request("idNoticia") IsNot Nothing) Then
      noticia.Id = Integer.Parse(Request("idNoticia"))
      noticia.DataPostagem = Date.Parse(dataPostagem.Text)
    Else
      noticia.Id = -1
      noticia.DataPostagem = Now()
    End If
    BCNoticia.Salvar(noticia)
    If nomeImagem.Length > 0 Then
      If hdf_nome_imagem.Value.Length > 0 Then
        File.Delete(HttpContext.Current.Server.MapPath("~/imagens/noticias/") & hdf_nome_imagem.Value)
      End If
      imagem.PostedFile.SaveAs(HttpContext.Current.Server.MapPath("~/imagens/noticias/") & noticia.NomeImagem)
    End If

    Response.Redirect("administrarNoticias.aspx")
  End Sub
End Class